home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / tstchange.amos < prev    next >
Text File  |  1997-01-31  |  605b  |  58 lines
  1. start: 
  2.  move.l #GUNVALS,a5
  3.  moveq #0,d0
  4.  move.w #7,d2
  5.  move.l #GOTGUNS,a6
  6.  
  7. .findcurrent: 
  8.  cmp.b (a5,d0.w),d2
  9.  beq.s .foundcurrent
  10.  add.b #1,d0
  11.  bra .findcurrent
  12.  
  13. .foundcurrent:
  14.  
  15.  moveq #0,d2
  16. .picknext:
  17.  add.b #1,d0
  18.  cmp.b #4,d0
  19.  ble.s .notfirst
  20.  move.b #0,d0
  21. .notfirst:
  22.  
  23.  moveq #0,d2
  24.  moveq #0,d3 
  25.  move.b (a5,d0.w),d2
  26.  move.b d2,d3
  27. ; lsl.w #5,d2
  28.  tst.b (a6,d2.w)
  29.  beq.s .picknext
  30.  move.b d3,newgun
  31.  
  32.  rts
  33.  
  34. newgun:
  35.  dc.w 0
  36.  
  37. GUNVALS:
  38. ; machine gun
  39.  dc.b 0
  40. ; shotgun
  41.  dc.b 7
  42. ; plasma
  43.  dc.b 1
  44. ; grenade
  45.  dc.b 4
  46. ; rocket
  47.  dc.b 2
  48.  
  49. GOTGUNS:
  50.  dc.b 1
  51.  dc.b 0
  52.  dc.b 0
  53.  dc.b 0
  54.  dc.b 0
  55.  dc.b 0
  56.  dc.b 0
  57.  dc.b 1
  58.